package Ogame::Message;

use strict;
### Exported symbols (module stuff)
use Exporter;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
@ISA = qw(Exporter);
$VERSION='$Id: Ogame.pm 186 2007-10-19 21:39:56Z $';
@EXPORT = qw();

sub new() {
	my $class=shift;
	my %input_params=@_;
#	if ($input_params{debug}) { $_debug=$input_params{debug} };
	my $self={};
	bless $self,$class;
	foreach my $key (qw(Date From Subject Content)) {
		$self->{$key}=$input_params{$key}
	}
	return $self;
}

sub From() {
	my $self=shift;
	return $self->{From};
}
sub Date() {
	my $self=shift;
	return $self->{Date}
}
sub Subject() {
	my $self=shift;
	return $self->{Subject}
}
sub Content() {
	my $self=shift;
	return $self->{Content}
}

sub Content_add() {
	my $self=shift;
	my $arg=shift;
	$self->{Content}.=$arg;
}

1;
